﻿Public Class VMValeurCompte

    Public Property StringFormat As String = "#,##0"
    Public Overridable Property Valeur As Object

    Public Overrides Function ToString() As String
        If Valeur Is Nothing Then Return ""
        Dim resultat As String = ""
        If IsNumeric(Valeur) Then resultat = Format(Valeur, StringFormat) Else resultat = Valeur
        Return resultat
    End Function

End Class

